Sample 7 Loops

DLG(Edit='#What is shown', LBL='ESCape to see the code', B='Quit', XEQ='SYSTEM(Quit=1)')
#What is shown . The following code snippets show . how HicEst handles loops. . Possible loops are: Full loop DO from, to, stepsize Implicit stepsize=1 DO from, to Count only DO count forever (needs EXIT) DO . Best is to single-step through . the code using the ENTER key.
xxx = 0 DO ! loop forever, this needs an EXIT xxx = xxx + 1 if( xxx >= 3 ) EXIT ENDDO DO 3 ! loop a constant times xxx = xxx + 1 ENDDO count = 3 DO count ! loop for 'count' times xxx = xxx + 1 ENDDO DO A = xxx ! loop xxx times with loop variable A A xxx = xxx + 1 ENDDO DO B= 3.33, 5.55 ! loop from 3.33 to 5.55 (stepsize=1) with loop variable B B xxx = xxx + 1 ENDDO DO C = -0.11, 0.66, 0.33 ! loop from -0.11 to 0.66 stepsize 0.33 with loop variable C C xxx = xxx + 1 ENDDO . 1-cycle loops: DO 199/100 ! works as DO 1.9, 1, -1 DO j = 100 - 99 ! works as DO 1, 1, -1 DO k = MOD(7,4), 3 ! works as DO 3, 3, 1 DO L = 0, 1, 3*0.35 ! works as DO 0, 1, 1.05 DO m = -0.11, 0.99, -0.33 ! works as DO 0, 1, -1 xxx = xxx + 1 ENDDO ENDDO ENDDO ENDDO ENDDO errs = "DO errors =" && ABS(xxx - 25) DLG(NE=xxx,SYMbol, LBL=errs, BackGrd=999 - 99*(xxx~25), B='OK') END